home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
UNIVERSE
/
SHARED.DIR
/
01003_Script_sbtx
< prev
next >
Wrap
Text File
|
1995-11-21
|
1KB
|
53 lines
-- standard button trios
--property myNormal, myRollover, myPressed, myChannel, myScript, ancestor
--on birth me, no, sp, ro, pr, sc
-- set ancestor to birth(script "sb",sp,sc)
-- set myNormal to (the number of cast no)
-- set myRollover to (the number of cast ro)
-- set myPressed to (the number of cast pr)
-- set myScript to sc
-- set myChannel to integer(sp)
-- return me
--end
--change appearance
on sbtrollo myChannel, myRollover
global gsbtnormal
if the castNum of sprite myChannel = myRollOver then exit
set gsbtnormal = the castNum of sprite myChannel
--put ">>>my rollover cast 1003 " & myChannel && myRollover
puppetSprite myChannel,TRUE
set the castNum of sprite myChannel to myRollover
updateStage
--puppetSprite myChannel, false
end
on sbtpress theLine
set myChannel = integer(item 1 of theLine)
set myPressed = integer(item 6 of theLine)
puppetSprite myChannel,TRUE
set the castNum of sprite myChannel to myPressed
updateStage
puppetSprite myChannel, false
end
on sbtnorm theLine
global gsbtnormal
--put theLine
set myChannel = integer(item 4 of theLine)
set the castNum of sprite myChannel = gsbtnormal
puppetSprite myChannel, false
updateStage
end
on sbtdoScript theLine
set command = item 7 of theLine
do command
end